home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / kcl.lha / lsp / setf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  43.9 KB  |  1,780 lines
  1.  
  2. /* (C) Copyright Taiichi Yuasa and Masami Hagiya, 1984. All rights reserved. */
  3. #include <cmpinclude.h>
  4. #include "setf.h"
  5. init_setf(start,size,data)char *start;int size;object data;
  6. {    register object *base=vs_top;register object *sup=base+VM2;vs_top=sup;vs_check;
  7.     Cstart=start;Csize=size;Cdata=data;set_VV(VV,VM1,data);
  8.     MM(VV[196],L1,start,size,data);
  9.     MM(VV[197],L2,start,size,data);
  10.     MF(VV[198],L3,start,size,data);
  11.     MF(VV[199],L4,start,size,data);
  12.     (void)(putprop(VV[29],VV[30],VV[27]));
  13.     (void)(remprop(VV[29],VV[26]));
  14.     (void)(remprop(VV[29],VV[25]));
  15.     (void)(putprop(VV[29],Cnil,VV[31]));
  16.     (void)(putprop(VV[32],VV[33],VV[27]));
  17.     (void)(remprop(VV[32],VV[26]));
  18.     (void)(remprop(VV[32],VV[25]));
  19.     (void)(putprop(VV[32],Cnil,VV[31]));
  20.     (void)(putprop(VV[34],VV[35],VV[27]));
  21.     (void)(remprop(VV[34],VV[26]));
  22.     (void)(remprop(VV[34],VV[25]));
  23.     (void)(putprop(VV[34],Cnil,VV[31]));
  24.     (void)(putprop(VV[36],VV[37],VV[27]));
  25.     (void)(remprop(VV[36],VV[26]));
  26.     (void)(remprop(VV[36],VV[25]));
  27.     (void)(putprop(VV[36],Cnil,VV[31]));
  28.     (void)(putprop(VV[38],VV[39],VV[27]));
  29.     (void)(remprop(VV[38],VV[26]));
  30.     (void)(remprop(VV[38],VV[25]));
  31.     (void)(putprop(VV[38],Cnil,VV[31]));
  32.     (void)(putprop(VV[40],VV[41],VV[27]));
  33.     (void)(remprop(VV[40],VV[26]));
  34.     (void)(remprop(VV[40],VV[25]));
  35.     (void)(putprop(VV[40],Cnil,VV[31]));
  36.     (void)(putprop(VV[42],VV[43],VV[27]));
  37.     (void)(remprop(VV[42],VV[26]));
  38.     (void)(remprop(VV[42],VV[25]));
  39.     (void)(putprop(VV[42],Cnil,VV[31]));
  40.     (void)(putprop(VV[44],VV[45],VV[27]));
  41.     (void)(remprop(VV[44],VV[26]));
  42.     (void)(remprop(VV[44],VV[25]));
  43.     (void)(putprop(VV[44],Cnil,VV[31]));
  44.     (void)(putprop(VV[46],VV[47],VV[27]));
  45.     (void)(remprop(VV[46],VV[26]));
  46.     (void)(remprop(VV[46],VV[25]));
  47.     (void)(putprop(VV[46],Cnil,VV[31]));
  48.     (void)(putprop(VV[48],VV[49],VV[27]));
  49.     (void)(remprop(VV[48],VV[26]));
  50.     (void)(remprop(VV[48],VV[25]));
  51.     (void)(putprop(VV[48],Cnil,VV[31]));
  52.     (void)(putprop(VV[50],VV[51],VV[27]));
  53.     (void)(remprop(VV[50],VV[26]));
  54.     (void)(remprop(VV[50],VV[25]));
  55.     (void)(putprop(VV[50],Cnil,VV[31]));
  56.     (void)(putprop(VV[52],VV[53],VV[27]));
  57.     (void)(remprop(VV[52],VV[26]));
  58.     (void)(remprop(VV[52],VV[25]));
  59.     (void)(putprop(VV[52],Cnil,VV[31]));
  60.     (void)(putprop(VV[54],VV[55],VV[27]));
  61.     (void)(remprop(VV[54],VV[26]));
  62.     (void)(remprop(VV[54],VV[25]));
  63.     (void)(putprop(VV[54],Cnil,VV[31]));
  64.     (void)(putprop(VV[56],VV[57],VV[27]));
  65.     (void)(remprop(VV[56],VV[26]));
  66.     (void)(remprop(VV[56],VV[25]));
  67.     (void)(putprop(VV[56],Cnil,VV[31]));
  68.     (void)(putprop(VV[58],VV[59],VV[27]));
  69.     (void)(remprop(VV[58],VV[26]));
  70.     (void)(remprop(VV[58],VV[25]));
  71.     (void)(putprop(VV[58],Cnil,VV[31]));
  72.     (void)(putprop(VV[60],VV[61],VV[27]));
  73.     (void)(remprop(VV[60],VV[26]));
  74.     (void)(remprop(VV[60],VV[25]));
  75.     (void)(putprop(VV[60],Cnil,VV[31]));
  76.     (void)(putprop(VV[62],VV[63],VV[27]));
  77.     (void)(remprop(VV[62],VV[26]));
  78.     (void)(remprop(VV[62],VV[25]));
  79.     (void)(putprop(VV[62],Cnil,VV[31]));
  80.     (void)(putprop(VV[64],VV[65],VV[27]));
  81.     (void)(remprop(VV[64],VV[26]));
  82.     (void)(remprop(VV[64],VV[25]));
  83.     (void)(putprop(VV[64],Cnil,VV[31]));
  84.     (void)(putprop(VV[66],VV[67],VV[27]));
  85.     (void)(remprop(VV[66],VV[26]));
  86.     (void)(remprop(VV[66],VV[25]));
  87.     (void)(putprop(VV[66],Cnil,VV[31]));
  88.     (void)(putprop(VV[68],VV[69],VV[27]));
  89.     (void)(remprop(VV[68],VV[26]));
  90.     (void)(remprop(VV[68],VV[25]));
  91.     (void)(putprop(VV[68],Cnil,VV[31]));
  92.     (void)(putprop(VV[70],VV[71],VV[27]));
  93.     (void)(remprop(VV[70],VV[26]));
  94.     (void)(remprop(VV[70],VV[25]));
  95.     (void)(putprop(VV[70],Cnil,VV[31]));
  96.     (void)(putprop(VV[72],VV[73],VV[27]));
  97.     (void)(remprop(VV[72],VV[26]));
  98.     (void)(remprop(VV[72],VV[25]));
  99.     (void)(putprop(VV[72],Cnil,VV[31]));
  100.     (void)(putprop(VV[74],VV[75],VV[27]));
  101.     (void)(remprop(VV[74],VV[26]));
  102.     (void)(remprop(VV[74],VV[25]));
  103.     (void)(putprop(VV[74],Cnil,VV[31]));
  104.     (void)(putprop(VV[76],VV[77],VV[27]));
  105.     (void)(remprop(VV[76],VV[26]));
  106.     (void)(remprop(VV[76],VV[25]));
  107.     (void)(putprop(VV[76],Cnil,VV[31]));
  108.     (void)(putprop(VV[78],VV[79],VV[27]));
  109.     (void)(remprop(VV[78],VV[26]));
  110.     (void)(remprop(VV[78],VV[25]));
  111.     (void)(putprop(VV[78],Cnil,VV[31]));
  112.     (void)(putprop(VV[80],VV[81],VV[27]));
  113.     (void)(remprop(VV[80],VV[26]));
  114.     (void)(remprop(VV[80],VV[25]));
  115.     (void)(putprop(VV[80],Cnil,VV[31]));
  116.     (void)(putprop(VV[82],VV[83],VV[27]));
  117.     (void)(remprop(VV[82],VV[26]));
  118.     (void)(remprop(VV[82],VV[25]));
  119.     (void)(putprop(VV[82],Cnil,VV[31]));
  120.     (void)(putprop(VV[84],VV[85],VV[27]));
  121.     (void)(remprop(VV[84],VV[26]));
  122.     (void)(remprop(VV[84],VV[25]));
  123.     (void)(putprop(VV[84],Cnil,VV[31]));
  124.     (void)(putprop(VV[86],VV[87],VV[27]));
  125.     (void)(remprop(VV[86],VV[26]));
  126.     (void)(remprop(VV[86],VV[25]));
  127.     (void)(putprop(VV[86],Cnil,VV[31]));
  128.     (void)(putprop(VV[88],VV[89],VV[27]));
  129.     (void)(remprop(VV[88],VV[26]));
  130.     (void)(remprop(VV[88],VV[25]));
  131.     (void)(putprop(VV[88],Cnil,VV[31]));
  132.     (void)(putprop(VV[90],VV[91],VV[27]));
  133.     (void)(remprop(VV[90],VV[26]));
  134.     (void)(remprop(VV[90],VV[25]));
  135.     (void)(putprop(VV[90],Cnil,VV[31]));
  136.     (void)(putprop(VV[92],VV[93],VV[27]));
  137.     (void)(remprop(VV[92],VV[26]));
  138.     (void)(remprop(VV[92],VV[25]));
  139.     (void)(putprop(VV[92],Cnil,VV[31]));
  140.     (void)(putprop(VV[94],VV[95],VV[27]));
  141.     (void)(remprop(VV[94],VV[26]));
  142.     (void)(remprop(VV[94],VV[25]));
  143.     (void)(putprop(VV[94],Cnil,VV[31]));
  144.     (void)(putprop(VV[96],VV[97],VV[27]));
  145.     (void)(remprop(VV[96],VV[26]));
  146.     (void)(remprop(VV[96],VV[25]));
  147.     (void)(putprop(VV[96],Cnil,VV[31]));
  148.     (void)(putprop(VV[98],VV[99],VV[27]));
  149.     (void)(remprop(VV[98],VV[26]));
  150.     (void)(remprop(VV[98],VV[25]));
  151.     (void)(putprop(VV[98],Cnil,VV[31]));
  152.     (void)(putprop(VV[100],VV[101],VV[27]));
  153.     (void)(remprop(VV[100],VV[26]));
  154.     (void)(remprop(VV[100],VV[25]));
  155.     (void)(putprop(VV[100],Cnil,VV[31]));
  156.     (void)(putprop(VV[102],VV[103],VV[27]));
  157.     (void)(remprop(VV[102],VV[26]));
  158.     (void)(remprop(VV[102],VV[25]));
  159.     (void)(putprop(VV[102],Cnil,VV[31]));
  160.     (void)(putprop(VV[104],VV[105],VV[27]));
  161.     (void)(remprop(VV[104],VV[26]));
  162.     (void)(remprop(VV[104],VV[25]));
  163.     (void)(putprop(VV[104],Cnil,VV[31]));
  164.     (void)(putprop(VV[106],VV[107],VV[27]));
  165.     (void)(remprop(VV[106],VV[26]));
  166.     (void)(remprop(VV[106],VV[25]));
  167.     (void)(putprop(VV[106],Cnil,VV[31]));
  168.     (void)(putprop(VV[108],VV[109],VV[27]));
  169.     (void)(remprop(VV[108],VV[26]));
  170.     (void)(remprop(VV[108],VV[25]));
  171.     (void)(putprop(VV[108],Cnil,VV[31]));
  172.     (void)(putprop(VV[110],VV[111],VV[27]));
  173.     (void)(remprop(VV[110],VV[26]));
  174.     (void)(remprop(VV[110],VV[25]));
  175.     (void)(putprop(VV[110],Cnil,VV[31]));
  176.     (void)(putprop(VV[112],VV[113],VV[26]));
  177.     (void)(remprop(VV[112],VV[27]));
  178.     (void)(remprop(VV[112],VV[25]));
  179.     (void)(putprop(VV[112],Cnil,VV[31]));
  180.     (void)(putprop(VV[114],VV[115],VV[26]));
  181.     (void)(remprop(VV[114],VV[27]));
  182.     (void)(remprop(VV[114],VV[25]));
  183.     (void)(putprop(VV[114],Cnil,VV[31]));
  184.     (void)(putprop(VV[116],VV[117],VV[26]));
  185.     (void)(remprop(VV[116],VV[27]));
  186.     (void)(remprop(VV[116],VV[25]));
  187.     (void)(putprop(VV[116],Cnil,VV[31]));
  188.     (void)(putprop(VV[118],VV[119],VV[26]));
  189.     (void)(remprop(VV[118],VV[27]));
  190.     (void)(remprop(VV[118],VV[25]));
  191.     (void)(putprop(VV[118],Cnil,VV[31]));
  192.     (void)(putprop(VV[120],VV[121],VV[27]));
  193.     (void)(remprop(VV[120],VV[26]));
  194.     (void)(remprop(VV[120],VV[25]));
  195.     (void)(putprop(VV[120],Cnil,VV[31]));
  196.     (void)(putprop(VV[122],VV[123],VV[26]));
  197.     (void)(remprop(VV[122],VV[27]));
  198.     (void)(remprop(VV[122],VV[25]));
  199.     (void)(putprop(VV[122],Cnil,VV[31]));
  200.     (void)(putprop(VV[124],VV[125],VV[27]));
  201.     (void)(remprop(VV[124],VV[26]));
  202.     (void)(remprop(VV[124],VV[25]));
  203.     (void)(putprop(VV[124],Cnil,VV[31]));
  204.     (void)(putprop(VV[126],VV[127],VV[27]));
  205.     (void)(remprop(VV[126],VV[26]));
  206.     (void)(remprop(VV[126],VV[25]));
  207.     (void)(putprop(VV[126],Cnil,VV[31]));
  208.     (void)(putprop(VV[128],VV[129],VV[26]));
  209.     (void)(remprop(VV[128],VV[27]));
  210.     (void)(remprop(VV[128],VV[25]));
  211.     (void)(putprop(VV[128],Cnil,VV[31]));
  212.     (void)(putprop(VV[130],VV[131],VV[26]));
  213.     (void)(remprop(VV[130],VV[27]));
  214.     (void)(remprop(VV[130],VV[25]));
  215.     (void)(putprop(VV[130],Cnil,VV[31]));
  216.     (void)(putprop(VV[132],VV[123],VV[26]));
  217.     (void)(remprop(VV[132],VV[27]));
  218.     (void)(remprop(VV[132],VV[25]));
  219.     (void)(putprop(VV[132],Cnil,VV[31]));
  220.     (void)(putprop(VV[133],VV[123],VV[26]));
  221.     (void)(remprop(VV[133],VV[27]));
  222.     (void)(remprop(VV[133],VV[25]));
  223.     (void)(putprop(VV[133],Cnil,VV[31]));
  224.     (void)(putprop(VV[134],VV[135],VV[26]));
  225.     (void)(remprop(VV[134],VV[27]));
  226.     (void)(remprop(VV[134],VV[25]));
  227.     (void)(putprop(VV[134],Cnil,VV[31]));
  228.     (void)(putprop(VV[136],VV[137],VV[26]));
  229.     (void)(remprop(VV[136],VV[27]));
  230.     (void)(remprop(VV[136],VV[25]));
  231.     (void)(putprop(VV[136],Cnil,VV[31]));
  232.     (void)(putprop(VV[138],VV[139],VV[27]));
  233.     (void)(remprop(VV[138],VV[26]));
  234.     (void)(remprop(VV[138],VV[25]));
  235.     (void)(putprop(VV[138],Cnil,VV[31]));
  236.     (void)(putprop(VV[140],VV[141],VV[27]));
  237.     (void)(remprop(VV[140],VV[26]));
  238.     (void)(remprop(VV[140],VV[25]));
  239.     (void)(putprop(VV[140],Cnil,VV[31]));
  240.     base[0]= 
  241.     make_cclosure(LC338,Cnil,Cnil,Cdata,Cstart,Csize);
  242.     (void)(putprop(VV[142],base[0],VV[25]));
  243.     (void)(remprop(VV[142],VV[27]));
  244.     (void)(remprop(VV[142],VV[26]));
  245.     (void)(putprop(VV[142],Cnil,VV[31]));
  246.     (void)(putprop(VV[145],VV[146],VV[27]));
  247.     (void)(remprop(VV[145],VV[26]));
  248.     (void)(remprop(VV[145],VV[25]));
  249.     (void)(putprop(VV[145],Cnil,VV[31]));
  250.     base[0]= 
  251.     make_cclosure(LC339,Cnil,Cnil,Cdata,Cstart,Csize);
  252.     (void)(putprop(VV[147],base[0],VV[25]));
  253.     (void)(remprop(VV[147],VV[27]));
  254.     (void)(remprop(VV[147],VV[26]));
  255.     (void)(putprop(VV[147],Cnil,VV[31]));
  256.     base[0]= 
  257.     make_cclosure(LC340,Cnil,Cnil,Cdata,Cstart,Csize);
  258.     (void)(putprop(VV[148],base[0],VV[25]));
  259.     (void)(remprop(VV[148],VV[27]));
  260.     (void)(remprop(VV[148],VV[26]));
  261.     (void)(putprop(VV[148],Cnil,VV[31]));
  262.     base[0]= 
  263.     make_cclosure(LC341,Cnil,Cnil,Cdata,Cstart,Csize);
  264.     (void)(putprop(VV[154],base[0],VV[25]));
  265.     (void)(remprop(VV[154],VV[27]));
  266.     (void)(remprop(VV[154],VV[26]));
  267.     (void)(putprop(VV[154],Cnil,VV[31]));
  268.     base[0]= 
  269.     make_cclosure(LC342,Cnil,Cnil,Cdata,Cstart,Csize);
  270.     (void)(putprop(VV[156],base[0],VV[25]));
  271.     (void)(remprop(VV[156],VV[27]));
  272.     (void)(remprop(VV[156],VV[26]));
  273.     (void)(putprop(VV[156],Cnil,VV[31]));
  274.     base[0]= 
  275.     make_cclosure(LC343,Cnil,Cnil,Cdata,Cstart,Csize);
  276.     (void)(putprop(VV[158],base[0],VV[25]));
  277.     (void)(remprop(VV[158],VV[27]));
  278.     (void)(remprop(VV[158],VV[26]));
  279.     (void)(putprop(VV[158],Cnil,VV[31]));
  280.     MF(VV[200],L325,start,size,data);
  281.     MF(VV[201],L326,start,size,data);
  282.     MM(VV[202],L327,start,size,data);
  283.     MM(VV[203],L328,start,size,data);
  284.     MM(VV[204],L329,start,size,data);
  285.     MM(VV[205],L330,start,size,data);
  286.     MM(VV[206],L331,start,size,data);
  287.     MM(VV[207],L332,start,size,data);
  288.     MM(VV[208],L333,start,size,data);
  289.     MM(VV[209],L334,start,size,data);
  290.     MM(VV[210],L335,start,size,data);
  291.     MM(VV[211],L336,start,size,data);
  292.     MM(VV[212],L337,start,size,data);
  293.     vs_top=vs_base=base;
  294. }
  295. /*    macro definition for DEFSETF    */
  296.  
  297. static L1()
  298. {    register object *base=vs_base;
  299.     register object *sup=base+VM3;
  300.     vs_reserve(VM3);
  301.     check_arg(2);
  302.     vs_top=sup;
  303.     {object V1=base[0]->c.c_cdr;
  304.     if(endp(V1))invalid_macro_call();
  305.     base[2]= (V1->c.c_car);
  306.     V1=V1->c.c_cdr;
  307.     base[3]= V1;}
  308.     if((car(base[3]))==Cnil){
  309.     goto T328;}
  310.     if(type_of(car(base[3]))==t_symbol){
  311.     goto T327;}
  312.     base[4]= car(base[3]);
  313.     vs_top=(vs_base=base+4)+1;
  314.     Lfunctionp();
  315.     vs_top=sup;
  316.     if((vs_base[0])==Cnil){
  317.     goto T328;}
  318. T327:;
  319.     base[4]= list(2,VV[2],base[2]);
  320.     base[5]= list(2,VV[2],car(base[3]));
  321.     base[6]= list(4,VV[1],base[4],base[5],VV[3]);
  322.     base[7]= list(2,VV[2],base[2]);
  323.     base[8]= list(3,VV[4],base[7],VV[5]);
  324.     base[9]= list(2,VV[2],base[2]);
  325.     base[10]= list(3,VV[4],base[9],VV[6]);
  326.     base[11]= list(2,VV[2],base[2]);
  327.     if(endp(cdr(base[3]))){
  328.     goto T337;}
  329.     if(type_of(cadr(base[3]))==t_string){
  330.     goto T339;}
  331.     base[13]= VV[7];
  332.     vs_top=(vs_base=base+13)+1;
  333.     Lerror();
  334.     vs_top=sup;
  335. T339:;
  336.     if(endp(cddr(base[3]))){
  337.     goto T343;}
  338.     base[13]= VV[8];
  339.     vs_top=(vs_base=base+13)+1;
  340.     Lerror();
  341.     vs_top=sup;
  342. T343:;
  343.     base[12]= cadr(base[3]);
  344.     goto T335;
  345. T337:;
  346.     base[12]= Cnil;
  347. T335:;
  348.     base[13]= list(4,VV[1],base[11],base[12],VV[9]);
  349.     base[14]= list(2,VV[2],base[2]);
  350.     base[15]= list(6,VV[0],base[6],base[8],base[10],base[13],base[14]);
  351.     vs_top=(vs_base=base+15)+1;
  352.     return;
  353. T328:;
  354.     base[5]= cadr(base[3]);
  355.     vs_top=(vs_base=base+5)+1;
  356.     Llist_length();
  357.     vs_top=sup;
  358.     base[4]= vs_base[0];
  359.     if(number_compare(base[4],VV[10])==0){
  360.     goto T347;}
  361.     base[4]= VV[11];
  362.     vs_top=(vs_base=base+4)+1;
  363.     Lerror();
  364.     vs_top=sup;
  365. T347:;
  366.     base[4]= list(2,VV[2],base[2]);
  367.     base[5]= list(2,VV[2],base[3]);
  368.     base[6]= list(4,VV[1],base[4],base[5],VV[12]);
  369.     base[7]= list(2,VV[2],base[2]);
  370.     base[8]= list(3,VV[4],base[7],VV[13]);
  371.     base[9]= list(2,VV[2],base[2]);
  372.     base[10]= list(3,VV[4],base[9],VV[14]);
  373.     base[11]= list(2,VV[2],base[2]);
  374.     base[13]= cddr(base[3]);
  375.     base[12]= simple_symlispcall_no_event(VV[213],base+13,1);
  376.     base[13]= list(4,VV[1],base[11],base[12],VV[15]);
  377.     base[14]= list(2,VV[2],base[2]);
  378.     base[15]= list(6,VV[0],base[6],base[8],base[10],base[13],base[14]);
  379.     vs_top=(vs_base=base+15)+1;
  380.     return;
  381. }
  382. /*    macro definition for DEFINE-SETF-METHOD    */
  383.  
  384. static L2()
  385. {    register object *base=vs_base;
  386.     register object *sup=base+VM4;
  387.     vs_reserve(VM4);
  388.     check_arg(2);
  389.     vs_top=sup;
  390.     {object V2=base[0]->c.c_cdr;
  391.     if(endp(V2))invalid_macro_call();
  392.     base[2]= (V2->c.c_car);
  393.     V2=V2->c.c_cdr;
  394.     base[3]= V2;}
  395.     base[4]= list(2,VV[2],base[2]);
  396.     base[5]= make_cons(VV[17],base[3]);
  397.     base[6]= list(2,VV[16],base[5]);
  398.     base[7]= list(4,VV[1],base[4],base[6],VV[18]);
  399.     base[8]= list(2,VV[2],base[2]);
  400.     base[9]= list(3,VV[4],base[8],VV[19]);
  401.     base[10]= list(2,VV[2],base[2]);
  402.     base[11]= list(3,VV[4],base[10],VV[20]);
  403.     base[12]= list(2,VV[2],base[2]);
  404.     base[14]= cdr(base[3]);
  405.     base[13]= simple_symlispcall_no_event(VV[213],base+14,1);
  406.     base[14]= list(4,VV[1],base[12],base[13],VV[21]);
  407.     base[15]= list(2,VV[2],base[2]);
  408.     base[16]= list(6,VV[0],base[7],base[9],base[11],base[14],base[15]);
  409.     vs_top=(vs_base=base+16)+1;
  410.     return;
  411. }
  412. /*    function definition for GET-SETF-METHOD    */
  413.  
  414. static L3()
  415. {    register object *base=vs_base;
  416.     register object *sup=base+VM5;
  417.     vs_reserve(VM5);
  418.     check_arg(1);
  419.     vs_top=sup;
  420. TTL:;
  421.     base[2]= base[0];
  422.     vs_top=(vs_base=base+2)+1;
  423.     L4();
  424.     Llist();
  425.     vs_top=sup;
  426.     base[1]= vs_base[0];
  427.     base[2]= car(base[1]);
  428.     base[3]= cadr(base[1]);
  429.     base[4]= caddr(base[1]);
  430.     base[5]= cadddr(base[1]);
  431.     base[6]= car(cddddr(base[1]));
  432.     base[8]= base[4];
  433.     vs_top=(vs_base=base+8)+1;
  434.     Llist_length();
  435.     vs_top=sup;
  436.     base[7]= vs_base[0];
  437.     if(number_compare(base[7],VV[10])==0){
  438.     goto T365;}
  439.     base[7]= VV[22];
  440.     vs_top=(vs_base=base+7)+1;
  441.     Lerror();
  442.     vs_top=sup;
  443. T365:;
  444.     base[7]= base[2];
  445.     base[8]= base[3];
  446.     base[9]= base[4];
  447.     base[10]= base[5];
  448.     base[11]= base[6];
  449.     vs_top=(vs_base=base+7)+5;
  450.     return;
  451. }
  452. /*    function definition for GET-SETF-METHOD-MULTIPLE-VALUE    */
  453.  
  454. static L4()
  455. {    register object *base=vs_base;
  456.     register object *sup=base+VM6;
  457.     vs_reserve(VM6);
  458.     check_arg(1);
  459.     vs_top=sup;
  460. TTL:;
  461.     if(!(type_of(base[0])==t_symbol)){
  462.     goto T377;}
  463.     vs_base=vs_top;
  464.     Lgensym();
  465.     vs_top=sup;
  466.     base[1]= vs_base[0];
  467.     base[2]= Cnil;
  468.     base[3]= Cnil;
  469.     base[4]= make_cons(base[1],Cnil);
  470.     base[5]= list(3,VV[23],base[0],base[1]);
  471.     base[6]= base[0];
  472.     vs_top=(vs_base=base+2)+5;
  473.     return;
  474. T377:;
  475.     if(!(type_of(base[0])==t_cons)){
  476.     goto T385;}
  477.     if(type_of(car(base[0]))==t_symbol){
  478.     goto T386;}
  479. T385:;
  480.     base[1]= VV[24];
  481.     base[2]= base[0];
  482.     vs_top=(vs_base=base+1)+2;
  483.     Lerror();
  484.     return;
  485. T386:;
  486.     if((get(car(base[0]),VV[25],Cnil))==Cnil){
  487.     goto T393;}
  488.     base[1]= get(car(base[0]),VV[25],Cnil);
  489.     {object V3;
  490.     V3= cdr(base[0]);
  491.      vs_top=base+2;
  492.      while(!endp(V3))
  493.      {vs_push(car(V3));V3=cdr(V3);}
  494.     vs_base=base+2;}
  495.     super_funcall_no_event(base[1]);
  496.     return;
  497. T393:;
  498.     if((get(car(base[0]),VV[26],Cnil))==Cnil){
  499.     goto T398;}
  500.     {object V4;
  501.     object V5= cdr(base[0]);
  502.     if(endp(V5)){
  503.     base[1]= Cnil;
  504.     goto T400;}
  505.     base[3]=V4=MMcons(Cnil,Cnil);
  506. T401:;
  507.     vs_base=vs_top;
  508.     Lgensym();
  509.     vs_top=sup;
  510.     (V4->c.c_car)= vs_base[0];
  511.     if(endp(V5=MMcdr(V5))){
  512.     base[1]= base[3];
  513.     goto T400;}
  514.     V4=MMcdr(V4)=MMcons(Cnil,Cnil);
  515.     goto T401;}
  516. T400:;
  517.     vs_base=vs_top;
  518.     Lgensym();
  519.     vs_top=sup;
  520.     base[2]= vs_base[0];
  521.     base[3]= base[1];
  522.     base[4]= cdr(base[0]);
  523.     base[5]= make_cons(base[2],Cnil);
  524.     base[7]= get(car(base[0]),VV[26],Cnil);
  525.     base[8]= make_cons(base[2],Cnil);
  526.     base[9]= append(base[1],base[8]);
  527.     base[6]= make_cons(base[7],base[9]);
  528.     base[7]= make_cons(car(base[0]),base[1]);
  529.     vs_top=(vs_base=base+3)+5;
  530.     return;
  531. T398:;
  532.     if((get(car(base[0]),VV[27],Cnil))==Cnil){
  533.     goto T411;}
  534.     {object V6;
  535.     object V7= cdr(base[0]);
  536.     if(endp(V7)){
  537.     base[1]= Cnil;
  538.     goto T413;}
  539.     base[2]=V6=MMcons(Cnil,Cnil);
  540. T414:;
  541.     vs_base=vs_top;
  542.     Lgensym();
  543.     vs_top=sup;
  544.     (V6->c.c_car)= vs_base[0];
  545.     if(endp(V7=MMcdr(V7))){
  546.     base[1]= base[2];
  547.     goto T413;}
  548.     V6=MMcdr(V6)=MMcons(Cnil,Cnil);
  549.     goto T414;}
  550. T413:;
  551.     vs_base=vs_top;
  552.     Lgensym();
  553.     vs_top=sup;
  554.     base[2]= vs_base[0];
  555.     base[3]= get(car(base[0]),VV[27],Cnil);
  556.     {object V8= car(base[3]);
  557.     base[5]= listA(3,VV[17],cadr(base[3]),cddr(base[3]));
  558.     base[6]= list(2,VV[16],base[5]);
  559.     base[4]= list(3,VV[17],V8,base[6]);}
  560.     base[5]= base[1];
  561.     base[6]= cdr(base[0]);
  562.     base[7]= make_cons(base[2],Cnil);
  563.     base[10]= base[4];
  564.     {object V9;
  565.     V9= base[1];
  566.      vs_top=base+11;
  567.      while(!endp(V9))
  568.      {vs_push(car(V9));V9=cdr(V9);}
  569.     vs_base=base+11;}
  570.     super_funcall_no_event(base[10]);
  571.     vs_top=sup;
  572.     base[9]= vs_base[0];
  573.     base[10]= base[2];
  574.     vs_top=(vs_base=base+10)+1;
  575.     super_funcall_no_event(base[9]);
  576.     vs_top=sup;
  577.     base[8]= vs_base[0];
  578.     base[9]= make_cons(car(base[0]),base[1]);
  579.     vs_top=(vs_base=base+5)+5;
  580.     return;
  581. T411:;
  582.     base[1]= car(base[0]);
  583.     vs_top=(vs_base=base+1)+1;
  584.     Lmacro_function();
  585.     vs_top=sup;
  586.     if((vs_base[0])==Cnil){
  587.     goto T429;}
  588.     base[1]= base[0];
  589.     vs_top=(vs_base=base+1)+1;
  590.     Lmacroexpand();
  591.     vs_top=sup;
  592.     base[0]= vs_base[0];
  593.     goto TTL;
  594. T429:;
  595.     base[1]= VV[28];
  596.     base[2]= base[0];
  597.     vs_top=(vs_base=base+1)+2;
  598.     Lerror();
  599.     return;
  600. }
  601. /*    function definition for SETF-EXPAND-1    */
  602.  
  603. static L325()
  604. {    register object *base=vs_base;
  605.     register object *sup=base+VM7;
  606.     vs_reserve(VM7);
  607.     check_arg(2);
  608.     vs_top=sup;
  609. TTL:;
  610.     base[2]= Cnil;
  611.     if(!(type_of(base[0])==t_cons)){
  612.     goto T437;}
  613.     if(!(car(base[0])==VV[147])){
  614.     goto T437;}
  615.     base[3]= caddr(base[0]);
  616.     base[1]= list(3,VV[147],cadr(base[0]),base[1]);
  617.     base[0]= base[3];
  618.     goto TTL;
  619. T437:;
  620.     if(!(type_of(base[0])==t_symbol)){
  621.     goto T445;}
  622.     base[3]= list(3,VV[23],base[0],base[1]);
  623.     vs_top=(vs_base=base+3)+1;
  624.     return;
  625. T445:;
  626.     if(!(type_of(car(base[0]))==t_symbol)){
  627.     goto T448;}
  628.     base[2]= get(car(base[0]),VV[26],Cnil);
  629.     if((base[2])==Cnil){
  630.     goto T448;}
  631.     {object V10= cdr(base[0]);
  632.     base[3]= make_cons(base[1],Cnil);
  633.     base[4]= append(V10,base[3]);
  634.     base[5]= make_cons(base[2],base[4]);
  635.     vs_top=(vs_base=base+5)+1;
  636.     return;}
  637. T448:;
  638.     if(!(type_of(car(base[0]))==t_symbol)){
  639.     goto T454;}
  640.     base[2]= get(car(base[0]),VV[160],Cnil);
  641.     if((base[2])==Cnil){
  642.     goto T454;}
  643.     if((get(car(base[0]),VV[27],Cnil))==Cnil){
  644.     goto T454;}
  645.     if(car(base[2])==VV[152]){
  646.     goto T454;}
  647.     if(car(base[2])==VV[161]){
  648.     goto T454;}
  649.     {object V11= cadr(base[0]);
  650.     base[3]= list(2,VV[2],car(base[2]));
  651.     base[4]= list(5,VV[162],V11,base[3],cdr(base[2]),base[1]);
  652.     vs_top=(vs_base=base+4)+1;
  653.     return;}
  654. T454:;
  655.     base[4]= base[0];
  656.     vs_top=(vs_base=base+4)+1;
  657.     L3();
  658.     Llist();
  659.     vs_top=sup;
  660.     base[3]= vs_base[0];
  661.     base[4]= car(base[3]);
  662.     base[5]= cadr(base[3]);
  663.     base[6]= caddr(base[3]);
  664.     base[7]= cadddr(base[3]);
  665.     base[8]= car(cddddr(base[3]));
  666.     base[11]= append(base[4],base[6]);
  667.     base[12]= make_cons(base[1],Cnil);
  668.     base[13]= append(base[5],base[12]);
  669.     {object V12;
  670.     object V13= base[11];
  671.     object V14= base[13];
  672.     if(endp(V13)||endp(V14)){
  673.     base[9]= Cnil;
  674.     goto T474;}
  675.     base[10]=V12=MMcons(Cnil,Cnil);
  676. T475:;
  677.     (V12->c.c_car)= list(2,(V13->c.c_car),(V14->c.c_car));
  678.     if(endp(V13=MMcdr(V13))||endp(V14=MMcdr(V14))){
  679.     base[9]= base[10];
  680.     goto T474;}
  681.     V12=MMcdr(V12)=MMcons(Cnil,Cnil);
  682.     goto T475;}
  683. T474:;
  684.     base[10]= list(3,VV[163],base[9],base[7]);
  685.     vs_top=(vs_base=base+10)+1;
  686.     return;
  687. }
  688. /*    function definition for SETF-EXPAND    */
  689.  
  690. static L326()
  691. {    register object *base=vs_base;
  692.     register object *sup=base+VM8;
  693.     vs_reserve(VM8);
  694.     check_arg(1);
  695.     vs_top=sup;
  696. TTL:;
  697.     if(!(endp(base[0]))){
  698.     goto T478;}
  699.     base[1]= Cnil;
  700.     vs_top=(vs_base=base+1)+1;
  701.     return;
  702. T478:;
  703.     if(!(endp(cdr(base[0])))){
  704.     goto T481;}
  705.     base[1]= VV[164];
  706.     base[2]= base[0];
  707.     vs_top=(vs_base=base+1)+2;
  708.     Lerror();
  709.     return;
  710. T481:;
  711.     base[2]= car(base[0]);
  712.     base[3]= cadr(base[0]);
  713.     vs_top=(vs_base=base+2)+2;
  714.     L325();
  715.     vs_top=sup;
  716.     base[1]= vs_base[0];
  717.     base[3]= cddr(base[0]);
  718.     vs_top=(vs_base=base+3)+1;
  719.     L326();
  720.     vs_top=sup;
  721.     base[2]= vs_base[0];
  722.     base[3]= make_cons(base[1],base[2]);
  723.     vs_top=(vs_base=base+3)+1;
  724.     return;
  725. }
  726. /*    macro definition for SETF    */
  727.  
  728. static L327()
  729. {    register object *base=vs_base;
  730.     register object *sup=base+VM9;
  731.     vs_reserve(VM9);
  732.     check_arg(2);
  733.     vs_top=sup;
  734.     {object V15=base[0]->c.c_cdr;
  735.     base[2]= V15;}
  736.     if(!(endp(base[2]))){
  737.     goto T491;}
  738.     base[3]= Cnil;
  739.     vs_top=(vs_base=base+3)+1;
  740.     return;
  741. T491:;
  742.     if(!(endp(cdr(base[2])))){
  743.     goto T494;}
  744.     base[3]= VV[165];
  745.     base[4]= base[2];
  746.     vs_top=(vs_base=base+3)+2;
  747.     Lerror();
  748.     return;
  749. T494:;
  750.     if(!(endp(cddr(base[2])))){
  751.     goto T499;}
  752.     base[3]= car(base[2]);
  753.     base[4]= cadr(base[2]);
  754.     vs_top=(vs_base=base+3)+2;
  755.     L325();
  756.     return;
  757. T499:;
  758.     base[4]= base[2];
  759.     vs_top=(vs_base=base+4)+1;
  760.     L326();
  761.     vs_top=sup;
  762.     base[3]= vs_base[0];
  763.     base[4]= make_cons(VV[0],base[3]);
  764.     vs_top=(vs_base=base+4)+1;
  765.     return;
  766. }
  767. /*    macro definition for PSETF    */
  768.  
  769. static L328()
  770. {    register object *base=vs_base;
  771.     register object *sup=base+VM10;
  772.     vs_reserve(VM10);
  773.     check_arg(2);
  774.     vs_top=sup;
  775.     {object V16=base[0]->c.c_cdr;
  776.     base[2]= V16;}
  777.     if(!(endp(base[2]))){
  778.     goto T506;}
  779.     base[3]= Cnil;
  780.     vs_top=(vs_base=base+3)+1;
  781.     return;
  782. T506:;
  783.     if(!(endp(cdr(base[2])))){
  784.     goto T509;}
  785.     base[3]= VV[166];
  786.     base[4]= base[2];
  787.     vs_top=(vs_base=base+3)+2;
  788.     Lerror();
  789.     return;
  790. T509:;
  791.     if(!(endp(cddr(base[2])))){
  792.     goto T514;}
  793.     base[4]= car(base[2]);
  794.     base[5]= cadr(base[2]);
  795.     vs_top=(vs_base=base+4)+2;
  796.     L325();
  797.     vs_top=sup;
  798.     base[3]= vs_base[0];
  799.     base[4]= list(3,VV[0],base[3],Cnil);
  800.     vs_top=(vs_base=base+4)+1;
  801.     return;
  802. T514:;
  803.     base[3]= base[2];
  804.     base[4]= Cnil;
  805.     base[5]= Cnil;
  806. T520:;
  807.     if(!(endp(base[3]))){
  808.     goto T521;}
  809.     base[6]= nreverse(base[5]);
  810.     base[7]= append(base[6],VV[167]);
  811.     base[8]= listA(3,VV[163],base[4],base[7]);
  812.     vs_top=(vs_base=base+8)+1;
  813.     return;
  814. T521:;
  815.     if(!(endp(cdr(base[3])))){
  816.     goto T525;}
  817.     base[6]= VV[168];
  818.     base[7]= base[2];
  819.     vs_top=(vs_base=base+6)+2;
  820.     Lerror();
  821.     vs_top=sup;
  822. T525:;
  823.     base[7]= car(base[3]);
  824.     vs_top=(vs_base=base+7)+1;
  825.     L3();
  826.     Llist();
  827.     vs_top=sup;
  828.     base[6]= vs_base[0];
  829.     base[7]= car(base[6]);
  830.     base[8]= cadr(base[6]);
  831.     base[9]= caddr(base[6]);
  832.     base[10]= cadddr(base[6]);
  833.     base[11]= car(cddddr(base[6]));
  834.     base[5]= make_cons(base[10],base[5]);
  835.     base[14]= append(base[7],base[9]);
  836.     base[15]= make_cons(cadr(base[3]),Cnil);
  837.     base[16]= append(base[8],base[15]);
  838.     {object V17;
  839.     object V18= base[14];
  840.     object V19= base[16];
  841.     if(endp(V18)||endp(V19)){
  842.     base[12]= Cnil;
  843.     goto T542;}
  844.     base[13]=V17=MMcons(Cnil,Cnil);
  845. T543:;
  846.     (V17->c.c_car)= list(2,(V18->c.c_car),(V19->c.c_car));
  847.     if(endp(V18=MMcdr(V18))||endp(V19=MMcdr(V19))){
  848.     base[12]= base[13];
  849.     goto T542;}
  850.     V17=MMcdr(V17)=MMcons(Cnil,Cnil);
  851.     goto T543;}
  852. T542:;
  853.     base[4]= nconc(base[4],base[12]);
  854.     base[3]= cddr(base[3]);
  855.     goto T520;
  856. }
  857. /*    macro definition for SHIFTF    */
  858.  
  859. static L329()
  860. {    register object *base=vs_base;
  861.     register object *sup=base+VM11;
  862.     vs_reserve(VM11);
  863.     check_arg(2);
  864.     vs_top=sup;
  865.     {object V20=base[0]->c.c_cdr;
  866.     base[2]= V20;}
  867.     vs_base=vs_top;
  868.     Lgensym();
  869.     vs_top=sup;
  870.     base[7]= vs_base[0];
  871.     base[3]= base[2];
  872.     base[4]= Cnil;
  873.     base[5]= Cnil;
  874.     base[6]= Cnil;
  875.     base[8]= Cnil;
  876. T550:;
  877.     if(!(endp(cdr(base[3])))){
  878.     goto T551;}
  879.     base[5]= nreverse(base[5]);
  880.     base[6]= nreverse(base[6]);
  881.     base[8]= nreverse(base[8]);
  882.     base[10]= base[4];
  883.     base[12]= list(2,base[7],car(base[8]));
  884.     base[11]= make_cons(base[12],Cnil);
  885.     {object V21;
  886.     object V22= base[5];
  887.     object V23= cdr(base[8]);
  888.     if(endp(V22)||endp(V23)){
  889.     base[12]= Cnil;
  890.     goto T563;}
  891.     base[13]=V21=MMcons(Cnil,Cnil);
  892. T564:;
  893.     (V21->c.c_car)= list(2,(V22->c.c_car),(V23->c.c_car));
  894.     if(endp(V22=MMcdr(V22))||endp(V23=MMcdr(V23))){
  895.     base[12]= base[13];
  896.     goto T563;}
  897.     V21=MMcdr(V21)=MMcons(Cnil,Cnil);
  898.     goto T564;}
  899. T563:;
  900.     base[15]= base[5];
  901.     vs_top=(vs_base=base+15)+1;
  902.     Llast();
  903.     vs_top=sup;
  904.     base[14]= vs_base[0];
  905.     base[15]= list(2,car(base[14]),car(base[3]));
  906.     base[13]= make_cons(base[15],Cnil);
  907.     vs_top=(vs_base=base+10)+4;
  908.     Lnconc();
  909.     vs_top=sup;
  910.     base[9]= vs_base[0];
  911.     base[10]= make_cons(base[7],Cnil);
  912.     base[11]= append(base[6],base[10]);
  913.     base[12]= listA(3,VV[163],base[9],base[11]);
  914.     vs_top=(vs_base=base+12)+1;
  915.     return;
  916. T551:;
  917.     base[10]= car(base[3]);
  918.     vs_top=(vs_base=base+10)+1;
  919.     L3();
  920.     Llist();
  921.     vs_top=sup;
  922.     base[9]= vs_base[0];
  923.     base[10]= car(base[9]);
  924.     base[11]= cadr(base[9]);
  925.     base[12]= caddr(base[9]);
  926.     base[13]= cadddr(base[9]);
  927.     base[14]= car(cddddr(base[9]));
  928.     {object V24;
  929.     object V25= base[10];
  930.     object V26= base[11];
  931.     if(endp(V25)||endp(V26)){
  932.     base[15]= Cnil;
  933.     goto T581;}
  934.     base[16]=V24=MMcons(Cnil,Cnil);
  935. T582:;
  936.     (V24->c.c_car)= list(2,(V25->c.c_car),(V26->c.c_car));
  937.     if(endp(V25=MMcdr(V25))||endp(V26=MMcdr(V26))){
  938.     base[15]= base[16];
  939.     goto T581;}
  940.     V24=MMcdr(V24)=MMcons(Cnil,Cnil);
  941.     goto T582;}
  942. T581:;
  943.     base[4]= nconc(base[4],base[15]);
  944.     base[5]= make_cons(car(base[12]),base[5]);
  945.     base[6]= make_cons(base[13],base[6]);
  946.     base[8]= make_cons(base[14],base[8]);
  947.     base[3]= cdr(base[3]);
  948.     goto T550;
  949. }
  950. /*    macro definition for ROTATEF    */
  951.  
  952. static L330()
  953. {    register object *base=vs_base;
  954.     register object *sup=base+VM12;
  955.     vs_reserve(VM12);
  956.     check_arg(2);
  957.     vs_top=sup;
  958.     {object V27=base[0]->c.c_cdr;
  959.     base[2]= V27;}
  960.     base[3]= base[2];
  961.     base[4]= Cnil;
  962.     base[5]= Cnil;
  963.     base[6]= Cnil;
  964.     base[7]= Cnil;
  965. T593:;
  966.     if(!(endp(base[3]))){
  967.     goto T594;}
  968.     base[5]= nreverse(base[5]);
  969.     base[6]= nreverse(base[6]);
  970.     base[7]= nreverse(base[7]);
  971.     base[9]= base[4];
  972.     {object V28;
  973.     object V29= base[5];
  974.     object V30= cdr(base[7]);
  975.     if(endp(V29)||endp(V30)){
  976.     base[10]= Cnil;
  977.     goto T605;}
  978.     base[11]=V28=MMcons(Cnil,Cnil);
  979. T606:;
  980.     (V28->c.c_car)= list(2,(V29->c.c_car),(V30->c.c_car));
  981.     if(endp(V29=MMcdr(V29))||endp(V30=MMcdr(V30))){
  982.     base[10]= base[11];
  983.     goto T605;}
  984.     V28=MMcdr(V28)=MMcons(Cnil,Cnil);
  985.     goto T606;}
  986. T605:;
  987.     base[13]= base[5];
  988.     vs_top=(vs_base=base+13)+1;
  989.     Llast();
  990.     vs_top=sup;
  991.     base[12]= vs_base[0];
  992.     base[13]= list(2,car(base[12]),car(base[7]));
  993.     base[11]= make_cons(base[13],Cnil);
  994.     vs_top=(vs_base=base+9)+3;
  995.     Lnconc();
  996.     vs_top=sup;
  997.     base[8]= vs_base[0];
  998.     base[9]= listA(3,VV[163],base[8],base[6]);
  999.     vs_top=(vs_base=base+9)+1;
  1000.     return;
  1001. T594:;
  1002.     base[9]= car(base[3]);
  1003.     vs_top=(vs_base=base+9)+1;
  1004.     L3();
  1005.     Llist();
  1006.     vs_top=sup;
  1007.     base[8]= vs_base[0];
  1008.     base[9]= car(base[8]);
  1009.     base[10]= cadr(base[8]);
  1010.     base[11]= caddr(base[8]);
  1011.     base[12]= cadddr(base[8]);
  1012.     base[13]= car(cddddr(base[8]));
  1013.     {object V31;
  1014.     object V32= base[9];
  1015.     object V33= base[10];
  1016.     if(endp(V32)||endp(V33)){
  1017.     base[14]= Cnil;
  1018.     goto T623;}
  1019.     base[15]=V31=MMcons(Cnil,Cnil);
  1020. T624:;
  1021.     (V31->c.c_car)= list(2,(V32->c.c_car),(V33->c.c_car));
  1022.     if(endp(V32=MMcdr(V32))||endp(V33=MMcdr(V33))){
  1023.     base[14]= base[15];
  1024.     goto T623;}
  1025.     V31=MMcdr(V31)=MMcons(Cnil,Cnil);
  1026.     goto T624;}
  1027. T623:;
  1028.     base[4]= nconc(base[4],base[14]);
  1029.     base[5]= make_cons(car(base[11]),base[5]);
  1030.     base[6]= make_cons(base[12],base[6]);
  1031.     base[7]= make_cons(base[13],base[7]);
  1032.     base[3]= cdr(base[3]);
  1033.     goto T593;
  1034. }
  1035. /*    macro definition for DEFINE-MODIFY-MACRO    */
  1036.  
  1037. static L331()
  1038. {    register object *base=vs_base;
  1039.     register object *sup=base+VM13;
  1040.     vs_reserve(VM13);
  1041.     check_arg(2);
  1042.     vs_top=sup;
  1043.     {object V34=base[0]->c.c_cdr;
  1044.     if(endp(V34))invalid_macro_call();
  1045.     base[2]= (V34->c.c_car);
  1046.     V34=V34->c.c_cdr;
  1047.     if(endp(V34))invalid_macro_call();
  1048.     base[3]= (V34->c.c_car);
  1049.     V34=V34->c.c_cdr;
  1050.     if(endp(V34))invalid_macro_call();
  1051.     base[4]= (V34->c.c_car);
  1052.     V34=V34->c.c_cdr;
  1053.     if(endp(V34)){
  1054.     base[5]= Cnil;
  1055.     } else {
  1056.     base[5]= (V34->c.c_car);
  1057.     V34=V34->c.c_cdr;}
  1058.     if(!endp(V34))invalid_macro_call();}
  1059.     base[7]= base[3];
  1060.     base[8]= Cnil;
  1061. T637:;
  1062.     if((base[7])!=Cnil){
  1063.     goto T638;}
  1064.     base[9]= list(2,VV[2],base[4]);
  1065.     base[10]= nreverse(base[8]);
  1066.     base[6]= listA(4,VV[152],base[9],VV[169],base[10]);
  1067.     goto T635;
  1068. T638:;
  1069.     if(car(base[7])==VV[170]){
  1070.     goto T642;}
  1071.     if(!(car(base[7])==VV[171])){
  1072.     goto T645;}
  1073.     base[9]= list(2,VV[2],base[4]);
  1074.     base[10]= nreverse(base[8]);
  1075.     base[11]= make_cons(cadr(base[7]),Cnil);
  1076.     base[12]= append(base[10],base[11]);
  1077.     base[6]= listA(4,VV[172],base[9],VV[169],base[12]);
  1078.     goto T635;
  1079. T645:;
  1080.     if(!(type_of(car(base[7]))==t_symbol)){
  1081.     goto T649;}
  1082.     base[8]= make_cons(car(base[7]),base[8]);
  1083.     goto T642;
  1084. T649:;
  1085.     base[8]= make_cons(caar(base[7]),base[8]);
  1086. T642:;
  1087.     base[7]= cdr(base[7]);
  1088.     goto T637;
  1089. T635:;
  1090.     base[7]= make_cons(VV[174],base[3]);
  1091.     if((base[5])==Cnil){
  1092.     goto T658;}
  1093.     base[8]= make_cons(base[5],Cnil);
  1094.     goto T656;
  1095. T658:;
  1096.     base[8]= Cnil;
  1097. T656:;
  1098.     base[9]= list(4,VV[152],VV[179],VV[174],base[6]);
  1099.     base[10]= list(3,VV[143],VV[178],base[9]);
  1100.     base[11]= list(3,VV[177],base[2],base[10]);
  1101.     base[12]= list(3,VV[175],VV[176],base[11]);
  1102.     base[13]= list(2,VV[152],base[6]);
  1103.     base[14]= list(3,VV[151],VV[187],base[13]);
  1104.     base[15]= list(4,VV[184],VV[185],VV[186],base[14]);
  1105.     base[16]= list(4,VV[152],VV[183],base[15],VV[188]);
  1106.     base[17]= list(4,VV[180],VV[181],VV[182],base[16]);
  1107.     base[18]= list(2,base[12],base[17]);
  1108.     base[19]= append(base[8],base[18]);
  1109.     base[20]= listA(4,VV[173],base[2],base[7],base[19]);
  1110.     vs_top=(vs_base=base+20)+1;
  1111.     return;
  1112. }
  1113. /*    macro definition for REMF    */
  1114.  
  1115. static L332()
  1116. {    register object *base=vs_base;
  1117.     register object *sup=base+VM14;
  1118.     vs_reserve(VM14);
  1119.     check_arg(2);
  1120.     vs_top=sup;
  1121.     {object V35=base[0]->c.c_cdr;
  1122.     if(endp(V35))invalid_macro_call();
  1123.     base[2]= (V35->c.c_car);
  1124.     V35=V35->c.c_cdr;
  1125.     if(endp(V35))invalid_macro_call();
  1126.     base[3]= (V35->c.c_car);
  1127.     V35=V35->c.c_cdr;
  1128.     if(!endp(V35))invalid_macro_call();}
  1129.     base[5]= base[2];
  1130.     vs_top=(vs_base=base+5)+1;
  1131.     L3();
  1132.     Llist();
  1133.     vs_top=sup;
  1134.     base[4]= vs_base[0];
  1135.     base[5]= car(base[4]);
  1136.     base[6]= cadr(base[4]);
  1137.     base[7]= caddr(base[4]);
  1138.     base[8]= cadddr(base[4]);
  1139.     base[9]= car(cddddr(base[4]));
  1140.     {object V36;
  1141.     object V37= base[5];
  1142.     object V38= base[6];
  1143.     if(endp(V37)||endp(V38)){
  1144.     base[10]= Cnil;
  1145.     goto T668;}
  1146.     base[11]=V36=MMcons(Cnil,Cnil);
  1147. T669:;
  1148.     (V36->c.c_car)= list(2,(V37->c.c_car),(V38->c.c_car));
  1149.     if(endp(V37=MMcdr(V37))||endp(V38=MMcdr(V38))){
  1150.     base[10]= base[11];
  1151.     goto T668;}
  1152.     V36=MMcdr(V36)=MMcons(Cnil,Cnil);
  1153.     goto T669;}
  1154. T668:;
  1155.     base[11]= list(2,car(base[7]),VV[189]);
  1156.     base[12]= list(3,VV[190],base[9],base[3]);
  1157.     base[13]= list(5,VV[180],base[11],base[12],base[8],VV[189]);
  1158.     base[14]= list(3,VV[163],base[10],base[13]);
  1159.     vs_top=(vs_base=base+14)+1;
  1160.     return;
  1161. }
  1162. /*    macro definition for INCF    */
  1163.  
  1164. static L333()
  1165. {    register object *base=vs_base;
  1166.     register object *sup=base+VM15;
  1167.     vs_reserve(VM15);
  1168.     check_arg(2);
  1169.     vs_top=sup;
  1170.     {object V39=base[0]->c.c_cdr;
  1171.     if(endp(V39))invalid_macro_call();
  1172.     base[2]= (V39->c.c_car);
  1173.     V39=V39->c.c_cdr;
  1174.     if(endp(V39)){
  1175.     base[3]= VV[10];
  1176.     } else {
  1177.     base[3]= (V39->c.c_car);
  1178.     V39=V39->c.c_cdr;}
  1179.     if(!endp(V39))invalid_macro_call();}
  1180.     if(!(type_of(base[2])==t_symbol)){
  1181.     goto T672;}
  1182.     base[5]= list(3,VV[191],base[2],base[3]);
  1183.     base[6]= list(3,VV[23],base[2],base[5]);
  1184.     vs_top=(vs_base=base+6)+1;
  1185.     return;
  1186. T672:;
  1187.     base[5]= base[2];
  1188.     vs_top=(vs_base=base+5)+1;
  1189.     L3();
  1190.     Llist();
  1191.     vs_top=sup;
  1192.     base[4]= vs_base[0];
  1193.     base[5]= car(base[4]);
  1194.     base[6]= cadr(base[4]);
  1195.     base[7]= caddr(base[4]);
  1196.     base[8]= cadddr(base[4]);
  1197.     base[9]= car(cddddr(base[4]));
  1198.     base[12]= append(base[5],base[7]);
  1199.     base[13]= list(3,VV[191],base[9],base[3]);
  1200.     base[14]= make_cons(base[13],Cnil);
  1201.     base[15]= append(base[6],base[14]);
  1202.     {object V40;
  1203.     object V41= base[12];
  1204.     object V42= base[15];
  1205.     if(endp(V41)||endp(V42)){
  1206.     base[10]= Cnil;
  1207.     goto T683;}
  1208.     base[11]=V40=MMcons(Cnil,Cnil);
  1209. T684:;
  1210.     (V40->c.c_car)= list(2,(V41->c.c_car),(V42->c.c_car));
  1211.     if(endp(V41=MMcdr(V41))||endp(V42=MMcdr(V42))){
  1212.     base[10]= base[11];
  1213.     goto T683;}
  1214.     V40=MMcdr(V40)=MMcons(Cnil,Cnil);
  1215.     goto T684;}
  1216. T683:;
  1217.     base[11]= list(3,VV[163],base[10],base[8]);
  1218.     vs_top=(vs_base=base+11)+1;
  1219.     return;
  1220. }
  1221. /*    macro definition for DECF    */
  1222.  
  1223. static L334()
  1224. {    register object *base=vs_base;
  1225.     register object *sup=base+VM16;
  1226.     vs_reserve(VM16);
  1227.     check_arg(2);
  1228.     vs_top=sup;
  1229.     {object V43=base[0]->c.c_cdr;
  1230.     if(endp(V43))invalid_macro_call();
  1231.     base[2]= (V43->c.c_car);
  1232.     V43=V43->c.c_cdr;
  1233.     if(endp(V43)){
  1234.     base[3]= VV[10];
  1235.     } else {
  1236.     base[3]= (V43->c.c_car);
  1237.     V43=V43->c.c_cdr;}
  1238.     if(!endp(V43))invalid_macro_call();}
  1239.     if(!(type_of(base[2])==t_symbol)){
  1240.     goto T687;}
  1241.     base[5]= list(3,VV[192],base[2],base[3]);
  1242.     base[6]= list(3,VV[23],base[2],base[5]);
  1243.     vs_top=(vs_base=base+6)+1;
  1244.     return;
  1245. T687:;
  1246.     base[5]= base[2];
  1247.     vs_top=(vs_base=base+5)+1;
  1248.     L3();
  1249.     Llist();
  1250.     vs_top=sup;
  1251.     base[4]= vs_base[0];
  1252.     base[5]= car(base[4]);
  1253.     base[6]= cadr(base[4]);
  1254.     base[7]= caddr(base[4]);
  1255.     base[8]= cadddr(base[4]);
  1256.     base[9]= car(cddddr(base[4]));
  1257.     base[12]= append(base[5],base[7]);
  1258.     base[13]= list(3,VV[192],base[9],base[3]);
  1259.     base[14]= make_cons(base[13],Cnil);
  1260.     base[15]= append(base[6],base[14]);
  1261.     {object V44;
  1262.     object V45= base[12];
  1263.     object V46= base[15];
  1264.     if(endp(V45)||endp(V46)){
  1265.     base[10]= Cnil;
  1266.     goto T698;}
  1267.     base[11]=V44=MMcons(Cnil,Cnil);
  1268. T699:;
  1269.     (V44->c.c_car)= list(2,(V45->c.c_car),(V46->c.c_car));
  1270.     if(endp(V45=MMcdr(V45))||endp(V46=MMcdr(V46))){
  1271.     base[10]= base[11];
  1272.     goto T698;}
  1273.     V44=MMcdr(V44)=MMcons(Cnil,Cnil);
  1274.     goto T699;}
  1275. T698:;
  1276.     base[11]= list(3,VV[163],base[10],base[8]);
  1277.     vs_top=(vs_base=base+11)+1;
  1278.     return;
  1279. }
  1280. /*    macro definition for PUSH    */
  1281.  
  1282. static L335()
  1283. {    register object *base=vs_base;
  1284.     register object *sup=base+VM17;
  1285.     vs_reserve(VM17);
  1286.     check_arg(2);
  1287.     vs_top=sup;
  1288.     {object V47=base[0]->c.c_cdr;
  1289.     if(endp(V47))invalid_macro_call();
  1290.     base[2]= (V47->c.c_car);
  1291.     V47=V47->c.c_cdr;
  1292.     if(endp(V47))invalid_macro_call();
  1293.     base[3]= (V47->c.c_car);
  1294.     V47=V47->c.c_cdr;
  1295.     if(!endp(V47))invalid_macro_call();}
  1296.     if(!(type_of(base[3])==t_symbol)){
  1297.     goto T701;}
  1298.     base[4]= list(3,VV[193],base[2],base[3]);
  1299.     base[5]= list(3,VV[23],base[3],base[4]);
  1300.     vs_top=(vs_base=base+5)+1;
  1301.     return;
  1302. T701:;
  1303.     base[5]= base[3];
  1304.     vs_top=(vs_base=base+5)+1;
  1305.     L3();
  1306.     Llist();
  1307.     vs_top=sup;
  1308.     base[4]= vs_base[0];
  1309.     base[5]= car(base[4]);
  1310.     base[6]= cadr(base[4]);
  1311.     base[7]= caddr(base[4]);
  1312.     base[8]= cadddr(base[4]);
  1313.     base[9]= car(cddddr(base[4]));
  1314.     base[12]= append(base[5],base[7]);
  1315.     base[13]= list(3,VV[193],base[2],base[9]);
  1316.     base[14]= make_cons(base[13],Cnil);
  1317.     base[15]= append(base[6],base[14]);
  1318.     {object V48;
  1319.     object V49= base[12];
  1320.     object V50= base[15];
  1321.     if(endp(V49)||endp(V50)){
  1322.     base[10]= Cnil;
  1323.     goto T712;}
  1324.     base[11]=V48=MMcons(Cnil,Cnil);
  1325. T713:;
  1326.     (V48->c.c_car)= list(2,(V49->c.c_car),(V50->c.c_car));
  1327.     if(endp(V49=MMcdr(V49))||endp(V50=MMcdr(V50))){
  1328.     base[10]= base[11];
  1329.     goto T712;}
  1330.     V48=MMcdr(V48)=MMcons(Cnil,Cnil);
  1331.     goto T713;}
  1332. T712:;
  1333.     base[11]= list(3,VV[163],base[10],base[8]);
  1334.     vs_top=(vs_base=base+11)+1;
  1335.     return;
  1336. }
  1337. /*    macro definition for PUSHNEW    */
  1338.  
  1339. static L336()
  1340. {    register object *base=vs_base;
  1341.     register object *sup=base+VM18;
  1342.     vs_reserve(VM18);
  1343.     check_arg(2);
  1344.     vs_top=sup;
  1345.     {object V51=base[0]->c.c_cdr;
  1346.     if(endp(V51))invalid_macro_call();
  1347.     base[2]= (V51->c.c_car);
  1348.     V51=V51->c.c_cdr;
  1349.     if(endp(V51))invalid_macro_call();
  1350.     base[3]= (V51->c.c_car);
  1351.     V51=V51->c.c_cdr;
  1352.     base[4]= V51;}
  1353.     base[6]= base[3];
  1354.     vs_top=(vs_base=base+6)+1;
  1355.     L3();
  1356.     Llist();
  1357.     vs_top=sup;
  1358.     base[5]= vs_base[0];
  1359.     base[6]= car(base[5]);
  1360.     base[7]= cadr(base[5]);
  1361.     base[8]= caddr(base[5]);
  1362.     base[9]= cadddr(base[5]);
  1363.     base[10]= car(cddddr(base[5]));
  1364.     base[13]= append(base[6],base[8]);
  1365.     base[14]= listA(4,VV[194],base[2],base[10],base[4]);
  1366.     base[15]= make_cons(base[14],Cnil);
  1367.     base[16]= append(base[7],base[15]);
  1368.     {object V52;
  1369.     object V53= base[13];
  1370.     object V54= base[16];
  1371.     if(endp(V53)||endp(V54)){
  1372.     base[11]= Cnil;
  1373.     goto T723;}
  1374.     base[12]=V52=MMcons(Cnil,Cnil);
  1375. T724:;
  1376.     (V52->c.c_car)= list(2,(V53->c.c_car),(V54->c.c_car));
  1377.     if(endp(V53=MMcdr(V53))||endp(V54=MMcdr(V54))){
  1378.     base[11]= base[12];
  1379.     goto T723;}
  1380.     V52=MMcdr(V52)=MMcons(Cnil,Cnil);
  1381.     goto T724;}
  1382. T723:;
  1383.     base[12]= list(3,VV[163],base[11],base[9]);
  1384.     vs_top=(vs_base=base+12)+1;
  1385.     return;
  1386. }
  1387. /*    macro definition for POP    */
  1388.  
  1389. static L337()
  1390. {    register object *base=vs_base;
  1391.     register object *sup=base+VM19;
  1392.     vs_reserve(VM19);
  1393.     check_arg(2);
  1394.     vs_top=sup;
  1395.     {object V55=base[0]->c.c_cdr;
  1396.     if(endp(V55))invalid_macro_call();
  1397.     base[2]= (V55->c.c_car);
  1398.     V55=V55->c.c_cdr;
  1399.     if(!endp(V55))invalid_macro_call();}
  1400.     if(!(type_of(base[2])==t_symbol)){
  1401.     goto T726;}
  1402.     vs_base=vs_top;
  1403.     Lgensym();
  1404.     vs_top=sup;
  1405.     base[3]= vs_base[0];
  1406.     base[4]= list(2,VV[29],base[2]);
  1407.     base[5]= list(2,base[3],base[4]);
  1408.     base[6]= make_cons(base[5],Cnil);
  1409.     base[7]= list(2,VV[32],base[2]);
  1410.     base[8]= list(3,VV[23],base[2],base[7]);
  1411.     base[9]= list(4,VV[143],base[6],base[8],base[3]);
  1412.     vs_top=(vs_base=base+9)+1;
  1413.     return;
  1414. T726:;
  1415.     base[4]= base[2];
  1416.     vs_top=(vs_base=base+4)+1;
  1417.     L3();
  1418.     Llist();
  1419.     vs_top=sup;
  1420.     base[3]= vs_base[0];
  1421.     base[4]= car(base[3]);
  1422.     base[5]= cadr(base[3]);
  1423.     base[6]= caddr(base[3]);
  1424.     base[7]= cadddr(base[3]);
  1425.     base[8]= car(cddddr(base[3]));
  1426.     base[11]= append(base[4],base[6]);
  1427.     base[12]= list(2,VV[32],base[8]);
  1428.     base[13]= make_cons(base[12],Cnil);
  1429.     base[14]= append(base[5],base[13]);
  1430.     {object V56;
  1431.     object V57= base[11];
  1432.     object V58= base[14];
  1433.     if(endp(V57)||endp(V58)){
  1434.     base[9]= Cnil;
  1435.     goto T738;}
  1436.     base[10]=V56=MMcons(Cnil,Cnil);
  1437. T739:;
  1438.     (V56->c.c_car)= list(2,(V57->c.c_car),(V58->c.c_car));
  1439.     if(endp(V57=MMcdr(V57))||endp(V58=MMcdr(V58))){
  1440.     base[9]= base[10];
  1441.     goto T738;}
  1442.     V56=MMcdr(V56)=MMcons(Cnil,Cnil);
  1443.     goto T739;}
  1444. T738:;
  1445.     base[10]= list(2,VV[29],base[8]);
  1446.     base[11]= list(3,VV[195],base[10],base[7]);
  1447.     base[12]= list(3,VV[163],base[9],base[11]);
  1448.     vs_top=(vs_base=base+12)+1;
  1449.     return;
  1450. }
  1451. /*    local function CLOSURE    */
  1452.  
  1453. static LC343(base0)
  1454. register object *base0;
  1455. {    register object *base=vs_base;
  1456.     register object *sup=base+VM20;
  1457.     vs_reserve(VM20);
  1458.     check_arg(2);
  1459.     vs_top=sup;
  1460.     base[3]= base[1];
  1461.     vs_top=(vs_base=base+3)+1;
  1462.     L3();
  1463.     Llist();
  1464.     vs_top=sup;
  1465.     base[2]= vs_base[0];
  1466.     base[3]= car(base[2]);
  1467.     base[4]= cadr(base[2]);
  1468.     base[5]= caddr(base[2]);
  1469.     base[6]= cadddr(base[2]);
  1470.     base[7]= car(cddddr(base[2]));
  1471.     vs_base=vs_top;
  1472.     Lgensym();
  1473.     vs_top=sup;
  1474.     base[8]= vs_base[0];
  1475.     vs_base=vs_top;
  1476.     Lgensym();
  1477.     vs_top=sup;
  1478.     base[9]= vs_base[0];
  1479.     base[10]= car(base[5]);
  1480.     base[11]= make_cons(base[8],base[3]);
  1481.     base[12]= make_cons(base[0],base[4]);
  1482.     base[13]= make_cons(base[9],Cnil);
  1483.     base[15]= list(4,VV[159],base[9],base[8],base[7]);
  1484.     base[16]= list(2,base[10],base[15]);
  1485.     base[17]= make_cons(base[16],Cnil);
  1486.     base[14]= list(4,VV[143],base[17],base[6],base[9]);
  1487.     base[15]= list(3,VV[158],base[8],base[7]);
  1488.     vs_top=(vs_base=base+11)+5;
  1489.     return;
  1490. }
  1491. /*    local function CLOSURE    */
  1492.  
  1493. static LC342(base0)
  1494. register object *base0;
  1495. {    register object *base=vs_base;
  1496.     register object *sup=base+VM21;
  1497.     vs_reserve(VM21);
  1498.     check_arg(2);
  1499.     vs_top=sup;
  1500.     base[3]= base[1];
  1501.     vs_top=(vs_base=base+3)+1;
  1502.     L3();
  1503.     Llist();
  1504.     vs_top=sup;
  1505.     base[2]= vs_base[0];
  1506.     base[3]= car(base[2]);
  1507.     base[4]= cadr(base[2]);
  1508.     base[5]= caddr(base[2]);
  1509.     base[6]= cadddr(base[2]);
  1510.     base[7]= car(cddddr(base[2]));
  1511.     vs_base=vs_top;
  1512.     Lgensym();
  1513.     vs_top=sup;
  1514.     base[8]= vs_base[0];
  1515.     vs_base=vs_top;
  1516.     Lgensym();
  1517.     vs_top=sup;
  1518.     base[9]= vs_base[0];
  1519.     base[10]= car(base[5]);
  1520.     base[11]= make_cons(base[8],base[3]);
  1521.     base[12]= make_cons(base[0],base[4]);
  1522.     base[13]= make_cons(base[9],Cnil);
  1523.     base[15]= list(4,VV[157],base[9],base[8],base[7]);
  1524.     base[16]= list(2,base[10],base[15]);
  1525.     base[17]= make_cons(base[16],Cnil);
  1526.     base[14]= list(4,VV[143],base[17],base[6],base[9]);
  1527.     base[15]= list(3,VV[156],base[8],base[7]);
  1528.     vs_top=(vs_base=base+11)+5;
  1529.     return;
  1530. }
  1531. /*    local function CLOSURE    */
  1532.  
  1533. static LC341(base0)
  1534. register object *base0;
  1535. {    register object *base=vs_base;
  1536.     register object *sup=base+VM22;
  1537.     vs_reserve(VM22);
  1538.     check_arg(2);
  1539.     vs_top=sup;
  1540.     base[3]= base[0];
  1541.     vs_top=(vs_base=base+3)+1;
  1542.     L3();
  1543.     Llist();
  1544.     vs_top=sup;
  1545.     base[2]= vs_base[0];
  1546.     base[3]= car(base[2]);
  1547.     base[4]= cadr(base[2]);
  1548.     base[5]= caddr(base[2]);
  1549.     base[6]= cadddr(base[2]);
  1550.     base[7]= car(cddddr(base[2]));
  1551.     vs_base=vs_top;
  1552.     Lgensym();
  1553.     vs_top=sup;
  1554.     base[8]= vs_base[0];
  1555.     vs_base=vs_top;
  1556.     Lgensym();
  1557.     vs_top=sup;
  1558.     base[9]= vs_base[0];
  1559.     base[10]= car(base[5]);
  1560.     base[11]= make_cons(base[8],base[3]);
  1561.     base[12]= make_cons(base[1],base[4]);
  1562.     base[13]= make_cons(base[9],Cnil);
  1563.     base[15]= list(4,VV[155],base[7],base[8],base[9]);
  1564.     base[16]= list(2,base[10],base[15]);
  1565.     base[17]= make_cons(base[16],Cnil);
  1566.     base[14]= list(4,VV[143],base[17],base[6],base[9]);
  1567.     base[15]= list(3,VV[154],base[7],base[8]);
  1568.     vs_top=(vs_base=base+11)+5;
  1569.     return;
  1570. }
  1571. /*    local function CLOSURE    */
  1572.  
  1573. static LC340(base0)
  1574. register object *base0;
  1575. {    register object *base=vs_base;
  1576.     register object *sup=base+VM23;
  1577.     vs_reserve(VM23);
  1578.     if(vs_top-vs_base<1) too_few_arguments();
  1579.     vs_base=vs_base+1;
  1580.     vs_top[0]=Cnil;
  1581.     {object *p=vs_top;
  1582.      for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
  1583.     vs_top=sup;
  1584.     if(!(type_of(base[0])==t_cons)){
  1585.     goto T790;}
  1586.     if(car(base[0])==VV[16]){
  1587.     goto T793;}
  1588.     if(!(car(base[0])==VV[2])){
  1589.     goto T790;}
  1590. T793:;
  1591.     if(!(type_of(cadr(base[0]))==t_symbol)){
  1592.     goto T790;}
  1593.     if((cddr(base[0]))==Cnil){
  1594.     goto T789;}
  1595. T790:;
  1596.     base[2]= VV[149];
  1597.     base[3]= base[0];
  1598.     vs_top=(vs_base=base+2)+2;
  1599.     Lerror();
  1600.     vs_top=sup;
  1601. T789:;
  1602.     base[3]= make_cons(cadr(base[0]),base[1]);
  1603.     vs_top=(vs_base=base+3)+1;
  1604.     L3();
  1605.     Llist();
  1606.     vs_top=sup;
  1607.     base[2]= vs_base[0];
  1608.     base[3]= car(base[2]);
  1609.     base[4]= cadr(base[2]);
  1610.     base[5]= caddr(base[2]);
  1611.     base[6]= cadddr(base[2]);
  1612.     base[7]= car(cddddr(base[2]));
  1613.     base[9]= base[6];
  1614.     vs_top=(vs_base=base+9)+1;
  1615.     Llast();
  1616.     vs_top=sup;
  1617.     base[8]= vs_base[0];
  1618.     {object V59= car(base[8]);
  1619.     base[10]= base[3];
  1620.     vs_top=(vs_base=base+10)+1;
  1621.     Llast();
  1622.     vs_top=sup;
  1623.     base[9]= vs_base[0];
  1624.     if(!(V59==car(base[9]))){
  1625.     goto T811;}}
  1626.     base[8]= base[3];
  1627.     base[9]= base[4];
  1628.     base[10]= base[5];
  1629.     base[12]= list(2,VV[16],car(base[6]));
  1630.     base[11]= listA(3,VV[148],base[12],cdr(base[6]));
  1631.     base[13]= list(2,VV[16],cadr(base[0]));
  1632.     base[12]= listA(3,VV[148],base[13],cdr(base[7]));
  1633.     vs_top=(vs_base=base+8)+5;
  1634.     return;
  1635. T811:;
  1636.     base[10]= base[6];
  1637.     vs_top=(vs_base=base+10)+1;
  1638.     Lbutlast();
  1639.     vs_top=sup;
  1640.     base[9]= vs_base[0];
  1641.     vs_top=(vs_base=base+9)+1;
  1642.     Llast();
  1643.     vs_top=sup;
  1644.     base[8]= vs_base[0];
  1645.     {object V60= car(base[8]);
  1646.     base[10]= base[3];
  1647.     vs_top=(vs_base=base+10)+1;
  1648.     Llast();
  1649.     vs_top=sup;
  1650.     base[9]= vs_base[0];
  1651.     if(!(V60==car(base[9]))){
  1652.     goto T823;}}
  1653.     base[8]= base[3];
  1654.     base[9]= base[4];
  1655.     base[10]= base[5];
  1656.     base[12]= list(2,VV[16],car(base[6]));
  1657.     base[14]= base[6];
  1658.     base[15]= VV[150];
  1659.     vs_top=(vs_base=base+14)+2;
  1660.     Lbutlast();
  1661.     vs_top=sup;
  1662.     base[13]= vs_base[0];
  1663.     {object V61= cdr(base[13]);
  1664.     base[16]= base[6];
  1665.     vs_top=(vs_base=base+16)+1;
  1666.     Lbutlast();
  1667.     vs_top=sup;
  1668.     base[15]= vs_base[0];
  1669.     vs_top=(vs_base=base+15)+1;
  1670.     Llast();
  1671.     vs_top=sup;
  1672.     base[14]= vs_base[0];
  1673.     {object V62= car(base[14]);
  1674.     base[16]= base[6];
  1675.     vs_top=(vs_base=base+16)+1;
  1676.     Llast();
  1677.     vs_top=sup;
  1678.     base[15]= vs_base[0];
  1679.     base[16]= list(2,VV[152],car(base[15]));
  1680.     base[17]= list(3,VV[151],V62,base[16]);
  1681.     base[18]= make_cons(base[17],Cnil);
  1682.     base[19]= append(V61,base[18]);
  1683.     base[11]= listA(3,VV[148],base[12],base[19]);}}
  1684.     base[13]= list(2,VV[16],cadr(base[0]));
  1685.     base[12]= listA(3,VV[148],base[13],cdr(base[7]));
  1686.     vs_top=(vs_base=base+8)+5;
  1687.     return;
  1688. T823:;
  1689.     base[8]= VV[153];
  1690.     base[9]= base[0];
  1691.     vs_top=(vs_base=base+8)+2;
  1692.     Lerror();
  1693.     return;
  1694. }
  1695. /*    local function CLOSURE    */
  1696.  
  1697. static LC339(base0)
  1698. register object *base0;
  1699. {    register object *base=vs_base;
  1700.     register object *sup=base+VM24;
  1701.     vs_reserve(VM24);
  1702.     check_arg(2);
  1703.     vs_top=sup;
  1704.     base[3]= base[1];
  1705.     vs_top=(vs_base=base+3)+1;
  1706.     L3();
  1707.     Llist();
  1708.     vs_top=sup;
  1709.     base[2]= vs_base[0];
  1710.     base[3]= car(base[2]);
  1711.     base[4]= cadr(base[2]);
  1712.     base[5]= caddr(base[2]);
  1713.     base[6]= cadddr(base[2]);
  1714.     base[7]= car(cddddr(base[2]));
  1715.     vs_base=vs_top;
  1716.     Lgensym();
  1717.     vs_top=sup;
  1718.     base[8]= vs_base[0];
  1719.     base[9]= base[3];
  1720.     base[10]= base[4];
  1721.     base[11]= make_cons(base[8],Cnil);
  1722.     {object V63= car(base[5]);
  1723.     base[13]= list(3,VV[147],base[0],base[8]);
  1724.     base[14]= list(2,V63,base[13]);
  1725.     base[15]= make_cons(base[14],Cnil);
  1726.     base[12]= list(3,VV[143],base[15],base[6]);}
  1727.     base[13]= list(3,VV[147],base[0],base[7]);
  1728.     vs_top=(vs_base=base+9)+5;
  1729.     return;
  1730. }
  1731. /*    local function CLOSURE    */
  1732.  
  1733. static LC338(base0)
  1734. register object *base0;
  1735. {    register object *base=vs_base;
  1736.     register object *sup=base+VM25;
  1737.     vs_reserve(VM25);
  1738.     if(vs_top-vs_base<2) too_few_arguments();
  1739.     if(vs_top-vs_base>3) too_many_arguments();
  1740.     vs_base=vs_base+2;
  1741.     if(vs_base>=vs_top){vs_top=sup;goto T859;}
  1742.     vs_top=sup;
  1743.     goto T860;
  1744. T859:;
  1745.     base[2]= Cnil;
  1746. T860:;
  1747.     base[4]= base[0];
  1748.     vs_top=(vs_base=base+4)+1;
  1749.     L3();
  1750.     Llist();
  1751.     vs_top=sup;
  1752.     base[3]= vs_base[0];
  1753.     base[4]= car(base[3]);
  1754.     base[5]= cadr(base[3]);
  1755.     base[6]= caddr(base[3]);
  1756.     base[7]= cadddr(base[3]);
  1757.     base[8]= car(cddddr(base[3]));
  1758.     vs_base=vs_top;
  1759.     Lgensym();
  1760.     vs_top=sup;
  1761.     base[9]= vs_base[0];
  1762.     vs_base=vs_top;
  1763.     Lgensym();
  1764.     vs_top=sup;
  1765.     base[10]= vs_base[0];
  1766.     base[12]= make_cons(base[9],Cnil);
  1767.     base[11]= append(base[4],base[12]);
  1768.     base[13]= make_cons(base[1],Cnil);
  1769.     base[12]= append(base[5],base[13]);
  1770.     base[13]= make_cons(base[10],Cnil);
  1771.     {object V64= car(base[6]);
  1772.     base[15]= list(4,VV[144],base[8],base[10],base[9]);
  1773.     base[16]= list(2,V64,base[15]);
  1774.     base[17]= make_cons(base[16],Cnil);
  1775.     base[14]= list(4,VV[143],base[17],base[7],base[10]);}
  1776.     base[15]= list(4,VV[142],base[8],base[9],base[2]);
  1777.     vs_top=(vs_base=base+11)+5;
  1778.     return;
  1779. }
  1780.